#
#this is a comment

> rawdata <-c( 55,  56,  98, 100,  15,  12,  33,  45,  32,  67,  82,  19, 25 )

max(rawdata)
min(rawdata)
summary(rawdata)

#plot mean/max/min
plot(rawdata)
plot(rawdata, type="b", xlab="Time in Seconds", ylab="CPU")

abline(h=min(rawdata, v=0)
abline(h=max(rawdata, v=0)
abline(h=mean(rawdata, v=0)

